f(x)=3x^3+2x^2+x+4,谁可以帮我写出计算这条函数的VB编程语言

Private Sub Command1_Click()
Dim i As Integer
Dim l As Integer
Dim k As Integer
Dim m As Integer
Dim n As Integer
i = InputBox("x值")
m = 4
n = 1
For l = 1 To i
For k = 1 To l
n = n * i
Next k
m = m + l * n
n = 1
Next l
Print m
End Sub

dim a
x=inputbox("x=?")
b=3*x^3+2*x^2+x+4
msgbox b

'也可以用秦九韶算法

加入了判断功能，如果输入的不是数值，将不能继续．

1.新建一个窗体userform1
2.添加控件
(1).用于输入X值的textbox1
(2).用于输出结果的lable1
(3).命令按钮commanbutton1设置显示属性"计算",commanbutton2设置显示属性"退出"
界面设置你自己应该知道的,就不多说了
3.双击commanbutton1写入代码:
Private Sub CommandButton1_Click()
Dim x
Dim y
x = TextBox1
If IsNumeric(x) = False Then
MsgBox "请输入数值", , "错误信息!"
Else
y = 3 * x ^ 3 + 2 * x ^ 2 + x + 4
Label1 = y
End If
End Sub
双击commanbutton2写入代码:
Private